home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•The School House•
/
Astromacronomer •••
/
BASIC Runtime
/
BASIC Runtime.rsrc
/
CODE_2.txt
< prev
next >
Wrap
Text File
|
1986-09-30
|
24KB
|
421 lines
# near model CODE resource
# jump table entries: 2784-2785 (2 of them)
export_348:
00000000 A11D syscall MaxMem, flags=1
00000002 263C 0000 257C move.l D3, 0x257C /* '%|' */
00000008 D088 add.l D0, A0
0000000A 0C80 0001 F400 cmpi.l D0, 0x1F400
00000010 6506 bcs +0x8 /* 00000018 */
00000012 0683 0000 2000 addi.l D3, 0x2000 /* ' \0' */
label00000018:
00000018 203C 0000 FFFF move.l D0, 0xFFFF
0000001E A032 syscall FlushEvents
00000020 6100 02CE bsr +0x2D0 /* 000002F0 */
00000024 2B4F FB46 move.l [A5 - 0x4BA], A7
00000028 2B57 FB4A move.l [A5 - 0x4B6], [A7]
0000002C 42A7 clr.l -[A7]
0000002E A9FA syscall UnloadScrap/UnlodeScrap
00000030 201F move.l D0, [A7]+
00000032 2203 move.l D1, D3
00000034 2B41 FB52 move.l [A5 - 0x4AE], D1
00000038 202D FB46 move.l D0, [A5 - 0x4BA]
0000003C 9081 sub.l D0, D1
0000003E 6500 0262 bcs +0x264 /* 000002A2 */
00000042 2040 movea.l A0, D0
00000044 A02D syscall SetApplLimit
00000046 4A40 tst.w D0
00000048 6600 0258 bne +0x25A /* 000002A2 */
0000004C 222D FB52 move.l D1, [A5 - 0x4AE]
00000050 0481 0000 0064 subi.l D1, 0x64 /* 'd' */
label00000056:
00000056 4218 clr.b [A0]+
00000058 51C9 FFFC dbf D1, -0x6 /* 00000056 */
0000005C 2C3C 000F 4240 move.l D6, 0xF4240
00000062 283C 0000 0C00 move.l D4, 0xC00
label00000068:
00000068 2604 move.l D3, D4
0000006A 9886 sub.l D4, D6
0000006C 4484 neg.l D4
0000006E 0C84 0000 0080 cmpi.l D4, 0x80
00000074 651A bcs +0x1C /* 00000090 */
label00000076:
00000076 2806 move.l D4, D6
00000078 D883 add.l D4, D3
0000007A E284 asr D4, 1
0000007C 2004 move.l D0, D4
0000007E A040 syscall ResrvMem/ReserveMem
00000080 4A40 tst.w D0
00000082 67E4 beq -0x1A /* 00000068 */
00000084 2C04 move.l D6, D4
00000086 9883 sub.l D4, D3
00000088 0C84 0000 0080 cmpi.l D4, 0x80
0000008E 64E6 bcc -0x18 /* 00000076 */
label00000090:
00000090 0886 0000 bclr.b D6, 0x0
00000094 0486 0000 088E subi.l D6, 0x88E
0000009A 6406 bcc +0x8 /* 000000A2 */
0000009C 0686 0000 088E addi.l D6, 0x88E
label000000A2:
000000A2 2006 move.l D0, D6
000000A4 0480 0000 2800 subi.l D0, 0x2800 /* '(\0' */
000000AA 2B40 FB56 move.l [A5 - 0x4AA], D0
000000AE 2006 move.l D0, D6
000000B0 E480 asr D0, 2
000000B2 0C80 0000 5536 cmpi.l D0, 0x5536 /* 'U6' */
000000B8 6406 bcc +0x8 /* 000000C0 */
000000BA 203C 0000 5536 move.l D0, 0x5536 /* 'U6' */
label000000C0:
000000C0 0C80 0000 F000 cmpi.l D0, 0xF000
000000C6 6506 bcs +0x8 /* 000000CE */
000000C8 203C 0000 F000 move.l D0, 0xF000
label000000CE:
000000CE 9C80 sub.l D6, D0
000000D0 6500 01D0 bcs +0x1D2 /* 000002A2 */
000000D4 0C86 0000 0400 cmpi.l D6, 0x400
000000DA 6500 01C6 bcs +0x1C8 /* 000002A2 */
000000DE 0886 0000 bclr.b D6, 0x0
000000E2 2F06 move.l -[A7], D6
000000E4 4EAD 0812 jsr [A5 + 0x812 /* export_254 */]
000000E8 45ED FE0E lea.l A2, [A5 - 0x1F2]
000000EC 47ED FE96 lea.l A3, [A5 - 0x16A]
label000000F0:
000000F0 3018 move.w D0, [A0]+
000000F2 3218 move.w D1, [A0]+
000000F4 0C40 6000 cmpi.w D0, 0x6000 /* '`\0' */
000000F8 6602 bne +0x4 /* 000000FC */
000000FA 7200 moveq.l D1, 0x00
label000000FC:
000000FC 425A clr.w [A2]+
000000FE 34C1 move.w [A2]+, D1
00000100 B7CA cmpa.l A3, A2
00000102 66EC bne -0x12 /* 000000F0 */
00000104 B3C8 cmpa.l A1, A0
00000106 6600 019A bne +0x19C /* 000002A2 */
0000010A 41ED FE96 lea.l A0, [A5 - 0x16A]
0000010E 303C 0021 move.w D0, 0x21 /* '!' */
00000112 7200 moveq.l D1, 0x00
label00000114:
00000114 5841 addq.w D1, 4
00000116 10C1 move.b [A0]+, D1
00000118 51C8 FFFA dbf D0, -0x8 /* 00000114 */
0000011C 526D FE12 addq.w [A5 - 0x1EE], 1
00000120 4280 clr.l D0
00000122 A122 syscall NewHandle, flags=1
00000124 4A40 tst.w D0
00000126 6B00 017A bmi +0x17C /* 000002A2 */
0000012A 2B48 FC8C move.l [A5 - 0x374], A0
0000012E 4280 clr.l D0
00000130 A122 syscall NewHandle, flags=1
00000132 4A40 tst.w D0
00000134 6B00 016C bmi +0x16E /* 000002A2 */
00000138 2B48 FC90 move.l [A5 - 0x370], A0
0000013C 4280 clr.l D0
0000013E A122 syscall NewHandle, flags=1
00000140 4A40 tst.w D0
00000142 6B00 015E bmi +0x160 /* 000002A2 */
00000146 2B48 F2BE move.l [A5 - 0xD42], A0
0000014A 486D FFFC pea.l [A5 - 0x4]
0000014E A86E syscall InitGraf
00000150 A8FE syscall InitFonts
00000152 A912 syscall InitWindows
00000154 A930 syscall InitMenus
00000156 A9CC syscall TEInit
00000158 3F3C 0003 move.w -[A7], 0x3
0000015C A9E5 syscall InitPack
0000015E A850 syscall InitCursor
00000160 6100 0144 bsr +0x146 /* 000002A6 */
00000164 2679 0000 09DE movea.l A3, [0x000009DE /* WMgrPort */]
0000016A 382B 000C move.w D4, [A3 + 0xC]
0000016E 3A2B 000E move.w D5, [A3 + 0xE]
00000172 422D F241 clr.b [A5 - 0xDBF]
00000176 0C45 02D0 cmpi.w D5, 0x2D0
0000017A 6604 bne +0x6 /* 00000180 */
0000017C 50ED F241 st [A5 - 0xDBF]
label00000180:
00000180 3B7C 0029 FAF2 move.w [A5 - 0x50E], 0x29 /* ')' */
00000186 3B7C 0002 FAF4 move.w [A5 - 0x50C], 0x2
0000018C 5544 subq.w D4, 2
0000018E 5945 subq.w D5, 4
00000190 3B44 FAF6 move.w [A5 - 0x50A], D4
00000194 3B45 FAF8 move.w [A5 - 0x508], D5
00000198 0444 002D subi.w D4, 0x2D /* '-' */
0000019C 3B7C 0029 FAFA move.w [A5 - 0x506], 0x29 /* ')' */
000001A2 3B7C 0002 FAFC move.w [A5 - 0x504], 0x2
000001A8 3B44 FAFE move.w [A5 - 0x502], D4
000001AC 3B45 FB00 move.w [A5 - 0x500], D5
000001B0 2079 0000 0AEC movea.l A0, [0x00000AEC /* AppParmHandle */]
000001B6 2050 movea.l A0, [A0]
000001B8 3E18 move.w D7, [A0]+
000001BA 662E bne +0x30 /* 000001EA */
000001BC 3E18 move.w D7, [A0]+
000001BE 672A beq +0x2C /* 000001EA */
000001C0 3B58 F314 move.w [A5 - 0xCEC], [A0]+
000001C4 2E18 move.l D7, [A0]+
000001C6 1B58 F31D move.b [A5 - 0xCE3], [A0]+
000001CA 5288 addq.l A0, 1
000001CC 7000 moveq.l D0, 0x00
000001CE 2248 movea.l A1, A0
000001D0 1018 move.b D0, [A0]+
000001D2 6716 beq +0x18 /* 000001EA */
000001D4 066D 002D FAFE addi.w [A5 - 0x502], 0x2D /* '-' */
000001DA 2B49 F036 move.l [A5 - 0xFCA], A1
label000001DE:
000001DE 12D8 move.b [A1]+, [A0]+
000001E0 5340 subq.w D0, 1
000001E2 66FA bne -0x4 /* 000001DE */
000001E4 4211 clr.b [A1]
000001E6 50ED F31C st [A5 - 0xCE4]
label000001EA:
000001EA 3F3C 0101 move.w -[A7], 0x101
000001EE 486D F8FE pea.l [A5 - 0x702]
000001F2 3F3C 0001 move.w -[A7], 0x1
000001F6 4267 clr.w -[A7]
000001F8 4EAD 0AF2 jsr [A5 + 0xAF2 /* export_346 */]
000001FC 2B40 F422 move.l [A5 - 0xBDE], D0
00000200 2B40 F21A move.l [A5 - 0xDE6], D0
00000204 4A2D F241 tst.b [A5 - 0xDBF]
00000208 6724 beq +0x26 /* 0000022E */
0000020A 2F00 move.l -[A7], D0
0000020C 3F2D FAF4 move.w -[A7], [A5 - 0x50C]
00000210 3F3C 0154 move.w -[A7], 0x154
00000214 4267 clr.w -[A7]
00000216 A91B syscall MoveWindow
00000218 2F2D F422 move.l -[A7], [A5 - 0xBDE]
0000021C 302D FAF8 move.w D0, [A5 - 0x508]
00000220 906D FAF4 sub.w D0, [A5 - 0x50C]
00000224 3F00 move.w -[A7], D0
00000226 3F3C 0016 move.w -[A7], 0x16
0000022A 4EAD 089A jsr [A5 + 0x89A /* export_271 */]
label0000022E:
0000022E 7601 moveq.l D3, 0x01
00000230 3803 move.w D4, D3
00000232 3A03 move.w D5, D3
00000234 97CB sub.l A3, A3
00000236 224B movea.l A1, A3
00000238 4EAD 1032 jsr [A5 + 0x1032 /* export_514 */]
0000023C 4AAD F036 tst.l [A5 - 0xFCA]
00000240 6606 bne +0x8 /* 00000248 */
00000242 2F2D F422 move.l -[A7], [A5 - 0xBDE]
00000246 A915 syscall ShowWindow
label00000248:
00000248 4EAD 08AA jsr [A5 + 0x8AA /* export_273 */]
0000024C 4EAD 08A2 jsr [A5 + 0x8A2 /* export_272 */]
00000250 42A7 clr.l -[A7]
00000252 2F3C 464F 4E54 move.l -[A7], 0x464F4E54 /* 'FONT' */
00000258 3F3C 018C move.w -[A7], 0x18C
0000025C A9A0 syscall GetResource
0000025E 2B5F FDFC move.l [A5 - 0x204], [A7]+
00000262 42A7 clr.l -[A7]
00000264 2F3C 5744 4546 move.l -[A7], 0x57444546 /* 'WDEF' */
0000026A 4267 clr.w -[A7]
0000026C A9A0 syscall GetResource
0000026E 2B5F FE00 move.l [A5 - 0x200], [A7]+
00000272 42A7 clr.l -[A7]
00000274 2F3C 4344 4546 move.l -[A7], 0x43444546 /* 'CDEF' */
0000027A 4267 clr.w -[A7]
0000027C A9A0 syscall GetResource
0000027E 2B5F FE04 move.l [A5 - 0x1FC], [A7]+
00000282 42A7 clr.l -[A7]
00000284 2F3C 4344 4546 move.l -[A7], 0x43444546 /* 'CDEF' */
0000028A 3F3C 0001 move.w -[A7], 0x1
0000028E A9A0 syscall GetResource
00000290 2B5F FE08 move.l [A5 - 0x1F8], [A7]+
00000294 4EAD 026A jsr [A5 + 0x26A /* export_73 */]
00000298 536D FE12 subq.w [A5 - 0x1EE], 1
0000029C 2C1F move.l D6, [A7]+
0000029E 4EED 091A jmp [A5 + 0x91A /* export_287 */]
label000002A2:
000002A2 7019 moveq.l D0, 0x19
000002A4 A9C9 syscall SysError
fn000002A6:
000002A6 7600 moveq.l D3, 0x00
000002A8 47ED F334 lea.l A3, [A5 - 0xCCC]
label000002AC:
000002AC 42A7 clr.l -[A7]
000002AE 3E03 move.w D7, D3
000002B0 0647 0100 addi.w D7, 0x100
000002B4 3F07 move.w -[A7], D7
000002B6 A9BF syscall GetRMenu
000002B8 26D7 move.l [A3]+, [A7]
000002BA 4267 clr.w -[A7]
000002BC A935 syscall InsertMenu
000002BE 5283 addq.l D3, 1
000002C0 0C43 0006 cmpi.w D3, 0x6
000002C4 65E6 bcs -0x18 /* 000002AC */
000002C6 2F2D F334 move.l -[A7], [A5 - 0xCCC]
000002CA 2F3C 4452 5652 move.l -[A7], 0x44525652 /* 'DRVR' */
000002D0 A94D syscall AppendResMenu/AddResMenu
000002D2 A937 syscall DrawMenuBar
000002D4 42A7 clr.l -[A7]
000002D6 A93B syscall GetMenuBar
000002D8 2B5F F330 move.l [A5 - 0xCD0], [A7]+
000002DC 7005 moveq.l D0, 0x05
000002DE 3B40 F320 move.w [A5 - 0xCE0], D0
000002E2 45ED F322 lea.l A2, [A5 - 0xCDE]
label000002E6:
000002E6 14FC 00FF move.b [A2]+, 0xFF
000002EA 51C8 FFFA dbf D0, -0x8 /* 000002E6 */
000002EE 4E75 rts
fn000002F0:
000002F0 41ED FED6 lea.l A0, [A5 - 0x12A]
000002F4 303C 125D move.w D0, 0x125D
label000002F8:
000002F8 4220 clr.b -[A0]
000002FA 51C8 FFFC dbf D0, -0x6 /* 000002F8 */
000002FE 2B7C 004F C752 ECCE move.l [A5 - 0x1332], 0x4FC752
00000306 2B7C 004F C752 ECD2 move.l [A5 - 0x132E], 0x4FC752
0000030E 2B7C 0026 9EC3 ECD6 move.l [A5 - 0x132A], 0x269EC3
00000316 2B7C 0003 43FD ECDA move.l [A5 - 0x1326], 0x343FD
0000031E 3B7C FFFF F250 move.w [A5 - 0xDB0], 0xFFFF
00000324 2B7C 00FF FFFF F0AE move.l [A5 - 0xF52], 0xFFFFFF
0000032C 1B7C 0001 F31F move.b [A5 - 0xCE1], 0x1
00000332 1B7C 0001 F242 move.b [A5 - 0xDBE], 0x1
00000338 3B7C 0002 FCD4 move.w [A5 - 0x32C], 0x2
0000033E 3B7C 0CE4 FCD8 move.w [A5 - 0x328], 0xCE4
00000344 7000 moveq.l D0, 0x00
00000346 41ED F422 lea.l A0, [A5 - 0xBDE]
0000034A 117C 0006 0004 move.b [A0 + 0x4], 0x6
00000350 41ED F428 lea.l A0, [A5 - 0xBD8]
00000354 103C 001A move.b D0, 0x1A
00000358 7210 moveq.l D1, 0x10
0000035A 7405 moveq.l D2, 0x05
label0000035C:
0000035C 1140 0004 move.b [A0 + 0x4], D0
00000360 1141 0005 move.b [A0 + 0x5], D1
00000364 5201 addq.b D1, 1
00000366 D1C0 add.l A0, D0
00000368 51CA FFF2 dbf D2, -0x10 /* 0000035C */
0000036C 41ED F4C4 lea.l A0, [A5 - 0xB3C]
00000370 103C 002E move.b D0, 0x2E /* '.' */
00000374 1140 0004 move.b [A0 + 0x4], D0
00000378 117C 0020 0005 move.b [A0 + 0x5], 0x20 /* ' ' */
0000037E D1C0 add.l A0, D0
00000380 1140 0004 move.b [A0 + 0x4], D0
00000384 117C 0021 0005 move.b [A0 + 0x5], 0x21 /* '!' */
0000038A D1C0 add.l A0, D0
0000038C 4228 0004 clr.b [A0 + 0x4]
00000390 3B7C FFFF F40E move.w [A5 - 0xBF2], 0xFFFF
00000396 3B7C 00FF F2AA move.w [A5 - 0xD56], 0xFF
0000039C 3B7C 000E F2AC move.w [A5 - 0xD54], 0xE
000003A2 3B7C 00FF F2D2 move.w [A5 - 0xD2E], 0xFF
000003A8 3B7C 000E F2D4 move.w [A5 - 0xD2C], 0xE
000003AE 426D F2D6 clr.w [A5 - 0xD2A]
000003B2 3B7C 0060 F2DC move.w [A5 - 0xD24], 0x60 /* '`' */
000003B8 3B7C 004E F2DA move.w [A5 - 0xD26], 0x4E /* 'N' */
000003BE 3B7C 000E F2DE move.w [A5 - 0xD22], 0xE
000003C4 426D F2E0 clr.w [A5 - 0xD20]
000003C8 3B7C 00FF F3FA move.w [A5 - 0xC06], 0xFF
000003CE 3B7C 000E F3FC move.w [A5 - 0xC04], 0xE
000003D4 3B78 0A5A F218 move.w [A5 - 0xDE8], [0x00000A5A /* CurMap */]
000003DA 2B7C 3FF0 0000 F1D8 move.l [A5 - 0xE28], 0x3FF00000
000003E2 42AD F1DC clr.l [A5 - 0xE24]
000003E6 2B7C 3F80 0000 F1D4 move.l [A5 - 0xE2C], 0x3F800000
000003EE 2B7C 3E70 0000 F1E0 move.l [A5 - 0xE20], 0x3E700000 /* '>p\0\0' */
000003F6 42AD F1E4 clr.l [A5 - 0xE1C]
000003FA 2B7C 4265 2EDF FEBA move.l [A5 - 0x146], 0x42652EDF
00000402 2B7C 4140 0000 FEBE move.l [A5 - 0x142], 0x41400000 /* 'A@\0\0' */
0000040A 2B7C 3F2A AAAB FEC2 move.l [A5 - 0x13E], 0x3F2AAAAB
00000412 2B7C 4052 FD22 FEC6 move.l [A5 - 0x13A], 0x4052FD22
0000041A 2B7C 48BF 4000 FECA move.l [A5 - 0x136], 0x48BF4000
00000422 2B7C 443C 72E1 FECE move.l [A5 - 0x132], 0x443C72E1
0000042A 2B7C 4270 0000 FED2 move.l [A5 - 0x12E], 0x42700000 /* 'Bp\0\0' */
00000432 4E75 rts
export_349:
00000434 526D FE12 addq.w [A5 - 0x1EE], 1
00000438 2B4A ED2C move.l [A5 - 0x12D4], A2
0000043C 2B4B ED04 move.l [A5 - 0x12FC], A3
00000440 2B4F F04E move.l [A5 - 0xFB2], A7
00000444 3B7C FFFE F02A move.w [A5 - 0xFD6], 0xFFFE
0000044A 1B7C 0080 F05E move.b [A5 - 0xFA2], 0x80
00000450 1B7C 003A EE8A move.b [A5 - 0x1176], 0x3A /* ':' */
00000456 1B7C 002C ED87 move.b [A5 - 0x1279], 0x2C /* ',' */
0000045C 422D F07E clr.b [A5 - 0xF82]
00000460 422D EE88 clr.b [A5 - 0x1178]
00000464 422D F097 clr.b [A5 - 0xF69]
00000468 422D F098 clr.b [A5 - 0xF68]
0000046C 426D F05C clr.w [A5 - 0xFA4]
00000470 43ED ED4A lea.l A1, [A5 - 0x12B6]
00000474 2B49 ED46 move.l [A5 - 0x12BA], A1
00000478 2B49 ED42 move.l [A5 - 0x12BE], A1
0000047C 43ED F0FC lea.l A1, [A5 - 0xF04]
00000480 2B49 F166 move.l [A5 - 0xE9A], A1
00000484 426D F0FC clr.w [A5 - 0xF04]
00000488 6100 00A8 bsr +0xAA /* 00000532 */
0000048C 4EAD 0972 jsr [A5 + 0x972 /* export_298 */]
00000490 4EAD 097A jsr [A5 + 0x97A /* export_299 */]
00000494 226D ED2C movea.l A1, [A5 - 0x12D4]
00000498 266D ED04 movea.l A3, [A5 - 0x12FC]
0000049C 4219 clr.b [A1]+
0000049E 4219 clr.b [A1]+
000004A0 2B49 ED28 move.l [A5 - 0x12D8], A1
000004A4 2B49 ED10 move.l [A5 - 0x12F0], A1
000004A8 2E0F move.l D7, A7
000004AA 2B4F ECFC move.l [A5 - 0x1304], A7
000004AE 2B4F F04E move.l [A5 - 0xFB2], A7
000004B2 0681 0000 1000 addi.l D1, 0x1000
000004B8 9E81 sub.l D7, D1
000004BA 6572 bcs +0x74 /* 0000052E */
000004BC 2B47 ED00 move.l [A5 - 0x1300], D7
000004C0 2E0B move.l D7, A3
000004C2 2B47 ED04 move.l [A5 - 0x12FC], D7
000004C6 2B47 ED08 move.l [A5 - 0x12F8], D7
000004CA 5387 subq.l D7, 1
000004CC 2B47 ED0C move.l [A5 - 0x12F4], D7
000004D0 2607 move.l D3, D7
000004D2 2643 movea.l A3, D3
000004D4 4EAD 038A jsr [A5 + 0x38A /* export_109 */]
000004D8 96AD ED28 sub.l D3, [A5 - 0x12D8]
000004DC 6550 bcs +0x52 /* 0000052E */
000004DE 4EAD 058A jsr [A5 + 0x58A /* export_173 */]
000004E2 422D F05E clr.b [A5 - 0xFA2]
000004E6 266D F036 movea.l A3, [A5 - 0xFCA]
000004EA 2E0B move.l D7, A3
000004EC 6616 bne +0x18 /* 00000504 */
000004EE 7200 moveq.l D1, 0x00
000004F0 2241 movea.l A1, D1
000004F2 4EAD 02BA jsr [A5 + 0x2BA /* export_83 */]
000004F6 206D ED28 movea.l A0, [A5 - 0x12D8]
000004FA 4220 clr.b -[A0]
000004FC 4EAD 0262 jsr [A5 + 0x262 /* export_72 */]
00000500 4EED 0202 jmp [A5 + 0x202 /* export_60 */]
label00000504:
00000504 4EAD 028A jsr [A5 + 0x28A /* export_77 */]
00000508 41ED ED88 lea.l A0, [A5 - 0x1278]
0000050C 10FC 0022 move.b [A0]+, 0x22 /* '\"' */
00000510 4247 clr.w D7
00000512 3E3C 00FC move.w D7, 0xFC
label00000516:
00000516 10DB move.b [A0]+, [A3]+
00000518 57CF FFFC dbeq D7, -0x6 /* 00000516 */
0000051C 4210 clr.b [A0]
0000051E 41ED ED88 lea.l A0, [A5 - 0x1278]
00000522 50ED F099 st [A5 - 0xF67]
00000526 4EAD 0262 jsr [A5 + 0x262 /* export_72 */]
0000052A 4EED 0CB2 jmp [A5 + 0xCB2 /* export_402 */]
label0000052E:
0000052E 4EED 07FA jmp [A5 + 0x7FA /* export_251 */]
fn00000532:
00000532 2B6D ED04 ED08 move.l [A5 - 0x12F8], [A5 - 0x12FC]
00000538 422D F09A clr.b [A5 - 0xF66]
0000053C 422D F09B clr.b [A5 - 0xF65]
00000540 7E00 moveq.l D7, 0x00
00000542 6106 bsr +0x8 /* 0000054A */
00000544 4EED 0212 jmp [A5 + 0x212 /* export_62 */]
00000548 7E02 moveq.l D7, 0x02
fn0000054A:
0000054A 526D FE12 addq.w [A5 - 0x1EE], 1
0000054E 48E7 6800 movem.l -[A7], D1,D2,D4
00000552 3207 move.w D1, D7
00000554 4244 clr.w D4
00000556 7406 moveq.l D2, 0x06
00000558 6008 bra +0xA /* 00000562 */
label0000055A:
0000055A 3E01 move.w D7, D1
0000055C 4EAD 0552 jsr [A5 + 0x552 /* export_166 */]
00000560 5384 subq.l D4, 1
label00000562:
00000562 51CA FFF6 dbf D2, -0xC /* 0000055A */
00000566 4CDF 0016 movem.l D1,D2,D4, [A7]+
0000056A 536D FE12 subq.w [A5 - 0x1EE], 1
0000056E 4E75 rts